home *** CD-ROM | disk | FTP | other *** search
/ PC Format (UK) 188 / 01-04 PC Format 188 [2006-06] DVD side 1_.iso / Menus / Scenes / HOME.dir / 00001_Script_Roots Contoller next >
Text File  |  2006-04-20  |  1KB  |  67 lines
  1. global zoom3dspriteActive
  2. global dock
  3. global mKey
  4. global cList
  5. global DisableGFX
  6. global mp
  7. global dv
  8.  
  9. on prepareMovie
  10.   CPUSpeed = baReadRegNumber( "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz", 0, "HKEY_LOCAL_MACHINE" )
  11.   
  12.   if CPUSpeed < 1400 then
  13.     DisableGFX = True
  14.   else
  15.     DisableGFX = False
  16.   end if
  17.   
  18.   UpdateIssueNum
  19.   SwapBgGraphic
  20.   GatherList
  21.   ProcessList
  22.   SortChannels
  23.   PopulateDockCast
  24.   GenerateDock
  25.   GenerateBaseMenuObjects
  26.   window_initSys
  27.   
  28. end
  29.  
  30. on UpdateIssueNum
  31.   
  32.   
  33.   nt = getNetText(mp & "Menus" & dv & "IssueLabel.txt")
  34.   
  35.   if netDone(nt) then
  36.     member("issuenumber").text = netTextResult(nt)
  37.   end if
  38.   
  39. end
  40.  
  41. on SwapBgGraphic
  42.   
  43.   ok = baFileExists(mp & "menus" & dv & "resources" & dv & "bg_image.jpg")
  44.   
  45.   if ok = 1 then
  46.     member("bg_image").filename = mp & "menus" & dv & "resources" & dv & "bg_image.jpg"
  47.   else
  48.     alert("No bg_image.jpg found in " & mp & "menus" & dv & "resources")
  49.   end if
  50.   
  51. end
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.